home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / fractal.arc / FRACTAL2.BAS < prev    next >
BASIC Source File  |  1986-05-03  |  2KB  |  44 lines
  1. 100 DEF SEG:CLEAR,&H3FF0:N=&H4000
  2. 110 READ A$:IF A$="/" THEN 130
  3. 120 POKE N,VAL("&H"+A$):N=N+1:GOTO 110
  4. 130 N=&H440F:FOR K=1 TO 15:POKE N,0:N=N+1:NEXT
  5. 140 POKE &H4425,0
  6. 150 N=&H4000:CALL N:POKE &H4425,1
  7. 160 A$=INKEY$:IF A$="" THEN 160
  8. 170 IF A$=" " THEN 150
  9. 180 IF A$<>"Q" AND A$<>"q" THEN 160
  10. 190 SCREEN 0:CLS:KEY ON:END
  11. 1000 DATA 1E,0E,1F,B8,05,00,CD,10,80,3E
  12. 1010 DATA 25,44,00,75,0B,B4,00,CD,1A,89
  13. 1020 DATA 16,23,44,EB,31,90,BE,02,00,B9
  14. 1030 DATA 08,00,A1,23,44,33,D2,A9,02,00
  15. 1040 DATA 74,02,B2,01,A9,04,00,74,02,B6
  16. 1050 DATA 01,32,D6,D0,EA,D1,D8,E2,E8,A3
  17. 1060 DATA 23,44,24,01,88,84,0F,44,46,83
  18. 1070 DATA FE,0F,75,D3,B8,00,06,33,C9,BA
  19. 1080 DATA 4F,18,32,FF,CD,10,B9,0F,00,33
  20. 1090 DATA F6,C6,84,00,44,00,46,E2,F8,C7
  21. 1100 DATA 06,1E,44,60,00,C7,06,20,44,84
  22. 1110 DATA 00,B8,01,0C,8B,0E,1E,44,8B,16
  23. 1120 DATA 20,44,CD,10,C6,06,22,44,00,B9
  24. 1130 DATA 0E,00,33,FF,BE,01,00,8A,A5,0F
  25. 1140 DATA 44,80,FC,00,75,18,FE,06,22,44
  26. 1150 DATA 8A,85,00,44,3A,84,00,44,75,20
  27. 1160 DATA FE,0E,22,44,FE,0E,22,44,EB,16
  28. 1170 DATA FE,0E,22,44,8A,85,00,44,3A,84
  29. 1180 DATA 00,44,75,08,FE,06,22,44,FE,06
  30. 1190 DATA 22,44,80,3E,22,44,FF,75,07,C6
  31. 1200 DATA 06,22,44,07,EB,0C,80,3E,22,44
  32. 1210 DATA 08,75,05,C6,06,22,44,00,47,46
  33. 1220 DATA E2,AB,EB,02,EB,9A,80,3E,22,44
  34. 1230 DATA 00,75,06,FF,06,1E,44,EB,1E,80
  35. 1240 DATA 3E,22,44,02,75,06,FF,06,20,44
  36. 1250 DATA EB,11,80,3E,22,44,04,75,06,FF
  37. 1260 DATA 0E,1E,44,EB,04,FF,0E,20,44,B8
  38. 1270 DATA 01,0C,8B,0E,1E,44,8B,16,20,44
  39. 1280 DATA CD,10,FE,06,0E,44,BF,0D,00,BE
  40. 1290 DATA 0E,00,B9,0E,00,80,BC,00,44,02
  41. 1300 DATA 75,0D,C6,84,00,44,00,FE,85,00
  42. 1310 DATA 44,4F,4E,E2,EC,80,3E,00,44,00
  43. 1320 DATA 75,02,EB,9C,1F,CB,/
  44.